
********************************************************************************
*									       *
*  Name: TPVMR_INIT 							       *
*  Purpose: Initializes atmospheric temperature, pressure, and water vapor     *
*	    volume mixing ratio (ppmv) profiles.			       *
*     		1 = tropical						       *
*     		2 = mid latitude summer					       *
*     		3 = mid latitude winter					       *
*     		4 = subarctic summer					       *
*     		5 = subarctic winter					       *
*     		6 = US standard 1976					       *
*     		7 = User input model atmosphere. Initially set to  	       *
*		        US standard 62. A user should modify this initial      *
*			setting by his/her own model atmosphere		       *
*									       *
*           An atmospheric model contains height (km), temperature (K),        *
*           pressure (mbar), and water vapor volume mixing ratio (ppmv)        *
*           at layer boundaries. The number of layer boundaries is             *
*	    specified at the beginning of the model.		  	       *
*  Parameters: none							       *
*  Globals used:   none							       *
*  Global output:  TPVMR - a two dimensional array containing the values for   *
*		   six standard atmospheric models.			       *
*  Return Codes: none							       *
*  Special Considerations: None						       *
*									       *
********************************************************************************
      BLOCK DATA TPVMR_INIT

      DIMENSION TPVMR(7,81)

      COMMON /TPVMR_INIT1/ TPVMR

C Tropical model
      DATA (TPVMR(1,I),I=1,81)/
     &      20.0,
     &       0.0,     1.013E+03,     299.700,     2.593E+04,
     &       1.0,     9.040E+02,     293.700,     1.949E+04,
     &       2.0,     8.050E+02,     287.700,     1.534E+04,
     &       3.0,     7.150E+02,     283.700,     8.600E+03,
     &       4.0,     6.330E+02,     277.000,     4.441E+03,
     &       5.0,     5.590E+02,     270.300,     3.346E+03,
     &       6.0,     4.920E+02,     263.600,     2.101E+03,
     &       7.0,     4.320E+02,     257.000,     1.289E+03,
     &       8.0,     3.780E+02,     250.300,     7.637E+02,
     &      10.0,     2.860E+02,     237.000,     1.912E+02,
     &      12.0,     2.130E+02,     223.600,     2.905E+01,
     &      14.0,     1.560E+02,     210.300,     6.220E+00,
     &      17.0,     9.370E+01,     194.800,     2.900E+00,
     &      20.0,     5.650E+01,     206.700,     2.600E+00,
     &      25.0,     2.570E+01,     221.400,     3.250E+00,
     &      30.0,     1.220E+01,     232.300,     4.000E+00,
     &      40.0,     3.050E+00,     254.000,     5.200E+00,
     &      50.0,     8.540E-01,     270.200,     6.000E+00,
     &      70.0,     5.800E-02,     218.900,     4.500E+00,
     &     100.0,     2.890E-04,     190.700,     4.000E-01/


C Mid latitude summer model
      DATA (TPVMR(2,I),I=1,81)/
     &      20.0,
     &       0.0,     1.013E+03,     294.200,     1.876E+04,
     &       1.0,     9.020E+02,     289.700,     1.378E+04,
     &       2.0,     8.020E+02,     285.200,     9.680E+03,
     &       3.0,     7.100E+02,     279.200,     5.984E+03,
     &       4.0,     6.280E+02,     273.200,     3.813E+03,
     &       5.0,     5.540E+02,     267.200,     2.225E+03,
     &       6.0,     4.870E+02,     261.200,     1.510E+03,
     &       7.0,     4.260E+02,     254.700,     1.020E+03,
     &       8.0,     3.720E+02,     248.200,     6.464E+02,
     &      10.0,     2.810E+02,     235.300,     2.472E+02,
     &      12.0,     2.090E+02,     222.300,     2.944E+01,
     &      14.0,     1.530E+02,     215.700,     5.000E+00,
     &      17.0,     9.500E+01,     215.700,     3.200E+00,
     &      20.0,     5.950E+01,     219.200,     3.300E+00,
     &      25.0,     2.770E+01,     225.100,     4.200E+00,
     &      30.0,     1.320E+01,     233.700,     4.700E+00,
     &      40.0,     3.330E+00,     257.500,     5.100E+00,
     &      50.0,     9.510E-01,     275.700,     5.500E+00,
     &      70.0,     6.700E-02,     218.100,     3.700E+00,
     &     100.0,     2.580E-04,     190.500,     4.000E-01/


C  Mid latitude winter model
      DATA (TPVMR(3,I),I=1,81)/
     &      20.0,
     &       0.0,     1.018E+03,     272.200,     4.316E+03,
     &       1.0,     8.973E+02,     268.700,     3.454E+03,
     &       2.0,     7.897E+02,     265.200,     2.788E+03,
     &       3.0,     6.938E+02,     261.700,     2.088E+03,
     &       4.0,     6.081E+02,     255.700,     1.280E+03,
     &       5.0,     5.313E+02,     249.700,     8.241E+02,
     &       6.0,     4.627E+02,     243.700,     5.103E+02,
     &       7.0,     4.016E+02,     237.700,     2.321E+02,
     &       8.0,     3.473E+02,     231.700,     1.077E+02,
     &      10.0,     2.568E+02,     219.700,     2.960E+01,
     &      12.0,     1.882E+02,     218.700,     6.000E+00,
     &      14.0,     1.378E+02,     217.700,     4.800E+00,
     &      17.0,     8.610E+01,     216.200,     4.500E+00,
     &      20.0,     5.370E+01,     215.200,     4.500E+00,
     &      25.0,     2.440E+01,     215.200,     4.650E+00,
     &      30.0,     1.110E+01,     217.400,     4.750E+00,
     &      40.0,     2.530E+00,     243.200,     4.950E+00,
     &      50.0,     6.830E-01,     265.700,     4.950E+00,
     &      70.0,     4.700E-02,     230.700,     3.300E+00,
     &     100.0,     4.074E-04,     218.600,     4.000E-01/
 

C  Subarctic summer model
      DATA (TPVMR(4,I),I=1,81)/
     &      20.0,
     &       0.0,     1.010E+03,     287.200,     1.194E+04,
     &       1.0,     8.960E+02,     281.700,     8.701E+03,
     &       2.0,     7.929E+02,     276.300,     6.750E+03,
     &       3.0,     7.000E+02,     270.900,     4.820E+03,
     &       4.0,     6.160E+02,     265.500,     3.380E+03,
     &       5.0,     5.410E+02,     260.100,     2.218E+03,
     &       6.0,     4.740E+02,     253.100,     1.330E+03,
     &       7.0,     4.130E+02,     246.100,     7.971E+02,
     &       8.0,     3.590E+02,     239.200,     3.996E+02,
     &      10.0,     2.677E+02,     225.200,     4.240E+01,
     &      12.0,     1.977E+02,     225.200,     6.000E+00,
     &      14.0,     1.460E+02,     225.200,     4.000E+00,
     &      17.0,     9.280E+01,     225.200,     4.050E+00,
     &      20.0,     5.900E+01,     225.200,     4.600E+00,
     &      25.0,     2.780E+01,     228.100,     4.900E+00,
     &      30.0,     1.340E+01,     235.100,     5.000E+00,
     &      40.0,     3.400E+00,     262.100,     5.000E+00,
     &      50.0,     9.870E-01,     277.200,     4.950E+00,
     &      70.0,     7.100E-02,     216.600,     3.300E+00,
     &     100.0,     2.480E-04,     190.400,     4.000E-01/


C  Subarctic winter model
      DATA (TPVMR(5,I),I=1,81)/
     &      20.0,
     &       0.0,     1.013E+03,     257.200,     1.405E+03,
     &       1.0,     8.878E+02,     259.100,     1.615E+03,
     &       2.0,     7.775E+02,     255.900,     1.427E+03,
     &       3.0,     6.798E+02,     252.700,     1.166E+03,
     &       4.0,     5.932E+02,     247.700,     7.898E+02,
     &       5.0,     5.158E+02,     240.900,     4.309E+02,
     &       6.0,     4.467E+02,     234.100,     2.369E+02,
     &       7.0,     3.853E+02,     227.300,     1.470E+02,
     &       8.0,     3.308E+02,     220.600,     3.384E+01,
     &      10.0,     2.418E+02,     217.200,     2.000E+01,
     &      12.0,     1.766E+02,     217.200,     6.000E+00,
     &      14.0,     1.291E+02,     217.200,     4.500E+00,
     &      17.0,     8.058E+01,     216.000,     4.650E+00,
     &      20.0,     5.014E+01,     214.200,     4.800E+00,
     &      25.0,     2.256E+01,     211.200,     5.000E+00,
     &      30.0,     1.020E+01,     216.000,     5.000E+00,
     &      40.0,     2.243E+00,     234.700,     5.000E+00,
     &      50.0,     5.719E-01,     259.300,     4.950E+00,
     &      70.0,     4.000E-02,     245.400,     3.300E+00,
     &     100.0,     4.230E-04,     218.500,     4.000E-01/


C  US standard 1976 model
      DATA (TPVMR(6,I),I=1,81)/
     &      20.0,
     &       0.0,     1.013E+03,     288.200,     7.745E+03,
     &       1.0,     8.986E+02,     281.700,     6.071E+03,
     &       2.0,     7.950E+02,     275.200,     4.631E+03,
     &       3.0,     7.012E+02,     268.700,     3.182E+03,
     &       4.0,     6.166E+02,     262.200,     2.158E+03,
     &       5.0,     5.405E+02,     255.700,     1.397E+03,
     &       6.0,     4.722E+02,     249.200,     9.254E+02,
     &       7.0,     4.111E+02,     242.700,     5.720E+02,
     &       8.0,     3.565E+02,     236.200,     3.667E+02,
     &      10.0,     2.650E+02,     223.300,     6.996E+01,
     &      12.0,     1.940E+02,     216.700,     1.906E+01,
     &      14.0,     1.417E+02,     216.700,     5.927E+00,
     &      17.0,     8.850E+01,     216.700,     3.850E+00,
     &      20.0,     5.529E+01,     216.700,     3.900E+00,
     &      25.0,     2.549E+01,     221.600,     4.425E+00,
     &      30.0,     1.197E+01,     226.500,     4.725E+00,
     &      40.0,     2.871E+00,     250.400,     5.025E+00,
     &      50.0,     7.978E-01,     270.700,     5.225E+00,
     &      70.0,     5.520E-02,     219.600,     3.500E+00,
     &     100.0,     3.200E-04,     195.100,     4.000E-01/


C  Model 7: User model. Initially was set to the  US standard 1976 model. 
C      A user should modify this initial setting by his/her own 
C      atmospheric model (possibly from radiosonde measurements).
C      The model atmosphere should have no more than 20 layer boundaries.
C      The units are: height (km), temperature (K), pressure (mbar), 
C      and water vapor mixing ratio (ppmv).
      DATA (TPVMR(7,I),I=1,81)/
     &      20.0,
     &       0.0,     1.013E+03,     288.200,     7.745E+03,
     &       1.0,     8.986E+02,     281.700,     6.071E+03,
     &       2.0,     7.950E+02,     275.200,     4.631E+03,
     &       3.0,     7.012E+02,     268.700,     3.182E+03,
     &       4.0,     6.166E+02,     262.200,     2.158E+03,
     &       5.0,     5.405E+02,     255.700,     1.397E+03,
     &       6.0,     4.722E+02,     249.200,     9.254E+02,
     &       7.0,     4.111E+02,     242.700,     5.720E+02,
     &       8.0,     3.565E+02,     236.200,     3.667E+02,
     &      10.0,     2.650E+02,     223.300,     6.996E+01,
     &      12.0,     1.940E+02,     216.700,     1.906E+01,
     &      14.0,     1.417E+02,     216.700,     5.927E+00,
     &      17.0,     8.850E+01,     216.700,     3.850E+00,
     &      20.0,     5.529E+01,     216.700,     3.900E+00,
     &      25.0,     2.549E+01,     221.600,     4.425E+00,
     &      30.0,     1.197E+01,     226.500,     4.725E+00,
     &      40.0,     2.871E+00,     250.400,     5.025E+00,
     &      50.0,     7.978E-01,     270.700,     5.225E+00,
     &      70.0,     5.520E-02,     219.600,     3.500E+00,
     &     100.0,     3.200E-04,     195.100,     4.000E-01/

      END
